home *** CD-ROM | disk | FTP | other *** search
/ 17 Bit Software 6: Level 6 / 17 Bit - Level 6 (1998)(Epic Marketing)[!].iso / quartz / q0867.dms / q0867.adf / TRAPDOOR.LZH / Scripts / NList < prev    next >
AmigaDOS Script File  |  1991-09-21  |  2KB  |  48 lines
  1. .key ""
  2. .bra {
  3. .ket }
  4.  
  5. ; Check if a new nodediff / pointnet arrived and process, if necessary
  6.  
  7. echo "NList 1.1 -- Copyright (C) 1990 by Maximilian Hantsch"
  8.  
  9. cd nodelist:
  10.  
  11. ; updatenl is used as a flag whether to run TrapList at the end
  12.  
  13. setenv updatenl FALSE
  14.  
  15. ; Check for nodediff
  16.  
  17. TrapScan >t:nlist.{$$} directory mail:inbound file nodediff.a?? and tag From 2:310/90.0 lformat "rename %s nodelist:%n"
  18. search >nil: t:nlist.{$$} rename
  19. if not warn
  20.    echo "Processing Nodediff"
  21.    delete nodelist:nodediff.???        ; remove old diffs
  22.    execute t:nlist.{$$}            ; rename new diffs to Nodelist:
  23.    copy nodediff.a?? files:nodelists    ; copy diff to file area
  24.    pkax -x nodediff.a??            ; unarc nodediff
  25.    setenv updatenl TRUE            ; nodelist needs updating
  26. endif
  27.  
  28. ; Check for pointnet
  29.  
  30. TrapScan >t:nlist.{$$} directory mail:inbound file pointnet.a?? and tag From 2:310/90.0 lformat "rename %s nodelist:%n"
  31. search >nil: t:nlist.{$$} rename
  32. if not warn
  33.    echo "Processing Pointnet"
  34.    delete nodelist:pointnet.???        ; remove old pointnets
  35.    execute t:nlist.{$$}            ; rename pointnet to Nodelist:
  36.    copy pointnet.a?? files:nodelists    ; copy pointnet to file area
  37.    pkax -x pointnet.a??            ; unarc pointnet
  38.    delete pointnet.a??            ; remove arc'd pointnet
  39.    delete pointlst.???            ; remove yuck-converted pointnets
  40.    yuck                    ; convert new pointnet [Yuck!]
  41.    setenv updatenl TRUE            ; nodelist needs updating
  42. endif
  43.  
  44. if $updatenl EQ TRUE
  45.    echo "*NUpdating Nodelist*N"
  46.    TrapList                ; fly over the nodelist ...
  47. endif
  48.